<%
If strdate="" Then
strdate=Date()
Else
strdate=strdate
End If



Dim objChinaDay
Dim sDay, sWeekDay, sChinaDay, sChinaYear,sChinaAni
Set objChinaDay = New ChinaDay
Call objChinaDay.Action(strdate,sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni)
Set objChinaDay = Nothing
%>

<TABLE CELLSPACING='1' CELLPADDING='0' WIDTH='100%' align='center' >
<TR valign='top'>
<TD style="border:1px dotted #0099CC;padding:5px;background:#ddeeff;" class='text-center'>
<B>
<font size="8" color="#3366ff"><strong><%=Day(strdate)%></strong></font>
<br />
农历<%=sChinaDay%><br />
<%=sDay%><br />
<%=sWeekDay%><br />
第<%=DatePart("q", strdate)%>季度<br />
第<%=DatePart("ww", strdate)%>周<br />
<!--显示站点日历-->
<%=sChinaYear & "(" & sChinaAni & ")"%><br />
</B>

</TD>
</Tr>
</TABLE>
